home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / mcf_buttons / rexx / mcf_about.amirx next >
Text File  |  1997-03-09  |  2KB  |  13 lines
  1. /* MCF_About.AMIRX
  2. // $VER: MCF_About.AMIRX 5.0 (09.03.97)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\  MUI GUI portion of script uses 1 port
  8. //      which is passed as an argument.
  9. \\
  10. // ** What to do with this file?
  11. \\ Put this script in AmIRC/Rexx
  12. */
  13. ;parse arg MUIPort;APort="";do cntr=1 to 9;if ~show('p',"AMIRC."||cntr) then iterate cntr;APort="AMIRC."||cntr;cntr=9;end cntr;interpret "address" MUIPort;MUIA_Frame=0x8042ac64;MUIA_Window_DepthGadget=0x80421923;MUIA_Window_DragBar=0x8042045d;MUIA_Window_SizeGadget=0x8042e33d;MUIV_Frame_Text=3;FALSE=0;ATitle=getclip(MUIPort||"_Title");AVersion=getclip(MUIPort||"_Version");ACopyright=getclip(MUIPort||"_Copyright");AAuthor=getclip(MUIPort||"_Author");ADescription=getclip(MUIPort||"_Description");AboutText="\n                       MCF About Window\n";if ATitle ~="" then AboutText=AboutText||"\n\n     Title:      " ATitle;if AVersion ~="" then AboutText=AboutText||"\n\n     Version:    " AVersion;if ACopyright ~="" then AboutText=AboutText||"\n\n     Copyright:  " ACopyright;if AAuthor ~="" then AboutText=AboutText||"\n\n     Author:     " AAuthor;if ADescription ~="" then AboutText=AboutText||"\n\n     Description:" ADescription||"\n\n";Window ID ABOUT ATTRS MUIA_Window_DepthGadget FALSE MUIA_Window_DragBar FALSE MUIA_Window_SizeGadget FALSE;group;text TRANS ATTRS MUIA_Frame MUIV_Frame_Text label AboutText;endgroup;group HORIZ;if APort ~="" then;do;space;button PRESS COMMAND '"SAY /Rx MCF_WWW"' PORT APORT LABEL "MCF HomePage";end;space;button PRESS COMMAND '"Window ID ABOUT CLOSE"' PORT MUIPort LABEL "Close";space;endgroup;endwindow;exit